home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
VISUALBA
/
GTTBAR01.ZIP
/
FORM1.FRM
< prev
next >
Wrap
Text File
|
1993-11-29
|
7KB
|
238 lines
VERSION 2.00
Begin Form Form1
BackColor = &H00FFFFFF&
Caption = "Form1"
ClientHeight = 2925
ClientLeft = 2055
ClientTop = 2955
ClientWidth = 5850
Height = 3615
Left = 1995
LinkTopic = "Form1"
ScaleHeight = 195
ScaleMode = 3 'Pixel
ScaleWidth = 390
Top = 2325
Width = 5970
Begin TextBox Text1
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 360
Left = 615
TabIndex = 0
Top = 660
Width = 2805
End
Begin gtpnl pnl2
Align = 2 'Align Bottom
BackColor = &H00C0C0C0&
BorderStyle = 3 '3D Raised
Caption = ""
Height = 390
Left = 0
Top = 2535
Width = 5850
Begin gtpnl pnl3
BackColor = &H00C0C0C0&
BorderStyle = 4 '3D Recessed
Caption = ""
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000080&
Height = 300
Left = 135
Top = 30
Width = 5535
End
End
Begin gtpnl pnl1
Align = 1 'Align Top
BackColor = &H00C0C0C0&
BorderStyle = 3 '3D Raised
Caption = ""
Flags3D = 10
Height = 435
Left = 0
Top = 0
Width = 5850
Begin CommandButton cmd
Caption = "Toggle"
Height = 345
Index = 0
Left = 3585
TabIndex = 1
Top = 30
Width = 1095
End
Begin tBar tBar
Height = 345
Index = 4
Left = 1860
Offset = 5
Tag = "Print preview"
Top = 30
Width = 390
End
Begin tBar tBar
Height = 345
Index = 3
Left = 1350
Offset = 4
Tag = "Print current document"
Top = 30
Width = 390
End
Begin tBar tBar
Height = 345
Index = 2
Left = 975
Offset = 3
Tag = "Save current document"
Top = 30
Width = 390
End
Begin tBar tBar
Height = 345
Index = 0
Left = 105
Offset = 1
Tag = "Create a new document"
Top = 30
Width = 390
End
Begin tBar tBar
Height = 345
Index = 1
Left = 480
Offset = 2
Tag = "Open a saved document"
Top = 30
Width = 390
End
Begin tBar tBar
Height = 345
Index = 5
Left = 2235
Offset = 6
Tag = "Cut selection to clipboard"
Top = 30
Width = 390
End
Begin tBar tBar
Height = 345
Index = 6
Left = 2610
Offset = 7
Tag = "Paste clipboard data"
Top = 30
Width = 390
End
Begin tBar tBar
Height = 345
Index = 7
Left = 2985
Offset = 15
Tag = "Quit program"
Top = 30
Width = 390
End
End
Begin tBar tBar
Height = 330
Index = 8
Left = 150
Offset = 19
Tag = "Bring up dialog box"
Top = 675
Width = 375
End
Begin Menu mnuMn
Caption = "&File"
Index = 0
Begin Menu mnuFile
Caption = "&ToolBar"
Checked = -1 'True
Index = 0
Shortcut = ^T
End
Begin Menu mnuFile
Caption = "&Status Bar"
Checked = -1 'True
Index = 1
Shortcut = ^S
End
Begin Menu mnuFile
Caption = "E&xit"
Index = 2
Shortcut = ^X
End
End
End
DefInt A-Z
Const DR3LEFT = &H1
Const DR3TOP = &H2
Const DR3RIGHT = &H4
Const DR3BOT = &H8
Const DR3ALL = &HF
Sub cmd_Click (Index As Integer)
If Index = 0 Then
For x = 0 To 7
tbar(x).Enabled = Not tbar(x).Enabled
Next
End If
End Sub
Sub mnuFile_Click (Index As Integer)
Select Case Index
Case 0:
mnuFile(Index).Checked = Not mnuFile(Index).Checked
pnl1.Visible = mnuFile(Index).Checked
Case 1:
mnuFile(Index).Checked = Not mnuFile(Index).Checked
pnl2.Visible = mnuFile(Index).Checked
Case 2:
Unload Me
End Select
End Sub
Sub pnl2_Resize ()
pnl3.Width = (((Me.ScaleWidth - 2) * screen.TwipsPerPixelX) - (pnl3.Left * 2))
End Sub
Sub tBar_Click (Index As Integer)
If Index = 7 Then
Unload Me
Exit Sub
End If
Beep
MsgBox "You clicked toolbar no. " & Index, 64, "GT ToolBar"
End Sub
Sub tbar_MouseOver (Index As Integer)
pnl3.Caption = " " & tbar(Index).Tag
End Sub